home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok10 / speech / speech.def < prev    next >
Text File  |  1993-11-04  |  2KB  |  63 lines
  1. (*********************************************************************
  2.  *
  3.  *  :Program.    Speech.def
  4.  *  :Author.     Michael Frieß
  5.  *  :Address.    Kernerstr. 22a
  6.  *  :Address.    7000 Stuttgart 1
  7.  *  :shortcut.   [MiF]
  8.  *  :Version.    1.0
  9.  *  :Date.       01.11.88
  10.  *  :Copyright.  PD
  11.  *  :Language.   Modula-II
  12.  *  :Translator. M2Amiga
  13.  *  :Contents.   Routinen zur Sprachunterstützung (auch Deutsch!)
  14.  *
  15.  *********************************************************************)
  16.  
  17. DEFINITION MODULE Speech;
  18.  
  19. TYPE language = (German, English, French);
  20.  (* :note.English = supported by operating system
  21.     :note.German  = implemented (as good as possible)
  22.     :note.French  = not implemented
  23.  *)
  24.  
  25.      voice = RECORD
  26.               rate, pitch, mode,
  27.               sex, volume, sampFreq : CARDINAL
  28.              END;
  29.  
  30. VAR DefaultVoice: voice;
  31.  
  32. PROCEDURE OpenNarrator (m: BOOLEAN);
  33.  (* :input.v = voice characteristics, e.g. DefaultVoice
  34.     :input.m = TRUE, you want read mouth informations from
  35.     :input.    narrator.
  36.     :semantic.Narrator device is opened for further use.
  37.  *)
  38.  
  39. PROCEDURE CloseNarrator;
  40.  (* :semantic.Closes the narrator device. Automatic closing
  41.     :semantic.is done at end of program.
  42.  *)
  43.  
  44. PROCEDURE SayPhonemes (p: ARRAY OF CHAR; v: voice);
  45.  (* :input.p = string of phonemes
  46.     :semantic.The Narrator device only speaks correct phonemes!
  47.  *)
  48.  
  49. PROCEDURE Translate (in: ARRAY OF CHAR; VAR out: ARRAY OF CHAR;
  50.                      Language: language) : INTEGER;
  51.  (* :input.in  = string of characters to be translated
  52.     :output.out = string of translated phonemes
  53.     :result.success of translation
  54.     :result.  0 = successful
  55.     :result. -1 = notUsed (the specific language translator
  56.     :result.      isn´t yet implementated.
  57.     :result. -2 = noMem   (not enough memory)
  58.     :result. -4 = makeBad
  59.     :semantic.translates characters into phonemes
  60.  *)
  61.  
  62. END Speech.
  63.